home *** CD-ROM | disk | FTP | other *** search
- // Copyright (C) 1997-2002 Alias|Wavefront,
- // a division of Silicon Graphics Limited.
- //
- // The information in this file is provided for the exclusive use of the
- // licensees of Alias|Wavefront. Such users have the right to use, modify,
- // and incorporate this code into other products for purposes authorized
- // by the Alias|Wavefront license agreement, without fee.
- //
- // ALIAS|WAVEFRONT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
- // INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
- // EVENT SHALL ALIAS|WAVEFRONT BE LIABLE FOR ANY SPECIAL, INDIRECT OR
- // CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
- // DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
- // TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
- // PERFORMANCE OF THIS SOFTWARE.
- //
- //
- // Alias|Wavefront Script File
- // MODIFY THIS AT YOUR OWN RISK
- //
- // Creation Date: 26 Feb 1996
- // Author: ms
- //
- // Description:
- // This procedure lets us define hotkeys for disableing or
- // enableing the history or future of an object
-
- proc string needTheLead()
- {
- string $result = "";
- string $all[] = `ls -l -sl -tail 1 -type dagNode`;
- if( size($all) > 0 ) {
- $result = $all[0];
- }
- else {
- $all = `ls -sl -tail 1`;
- if( size($all) > 0 ) {
- $result = $all[0];
- }
- }
- return $result;
- }
-
- global proc disableOfSelected( int $future, int $disable )
- //
- // Disable/enable all the operations in the future/history of the lead object.
-
- {
- string $objectsWithFormat = historyPopupFill( `needTheLead`, $future, 0 );
- if( $disable ) {
- disableAllListed( $objectsWithFormat );
- }
- else {
- enableAllListed( $objectsWithFormat );
- }
- }
-